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MMM MMM GGG 
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MMM MMM GGG 

MMM MMM GGG G6GGGGGGGG 
MMM MMM GGG 666666666 
MMM MMM GGG 6GGGGGG6GG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
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16 
SMGTPALIB = SMG$ TPARSE require files 15-5 “1984 23:28:34 
nt 1angeP-13B2 93:88:41 


-Sep-19 


ZTITLE_‘SMGTPALIB = SMG$ TPARSE require files' 
' Run-Time bivcery Seceen Management Bliss Definition Library 


} Module: SMGTPAL 


SRR REE REA EERE RRR EREERERAE RRS EAE EAAEREREAARE RRR HEEE 
' 


it 


SRR RRR EERE RRR RRR REE REE EEREAA EEE 
' 


LIBRARY ‘RTLSTARLE'; 
REQUIRE "RTLIN: SMGTABDEF '; 


144 
} FACILITY: 


-REQ) Edit: PLL1001 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY iy ACCORDANCE WITH THE T IT 


ROVIDE 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJE 
AND SHOULD NOT BE CONSTRUED AS A COMM 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


CT TO CHANGE WITHOUT NOTICE 
ITMENT BY DIGITAL EQUIPMENT 


ITY FOR THE USE OR RELIABILITY OF ITS 


BIL 
IS NOT SUPPLIED BY DIGITAL. 


I 
H 


Screen Management 


ABSTRACT: 
This file contains require files used in the creation of TERMTABLE.EXE. 
MODIFIED BY: 

1-001 = Original. PLL 30-JAN-1984 


' Starlet definitions 
! Terminal Table Definitions 


AX-1 
SMGR 


® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
*® 
® 
® 
® 
® 
® 
® 


1 
TL. SMGTP 


tg Pe v4.0 
SRC 


0-74 
ALIB.R 


742 


EQ;1 


Page 


SOOSOO COCO COCOOCOOCOOCOCOSOSOSSOOSOOOCOOCOSOOOCOOO OOOO OCOOOOOCOOCOOOOOOOO 


SMGTPALIB = SMG$ TPARSE require files 13-50 Sep-1984 t $3: e873! AX-11 Bliss-352 V 742 
-Sep-1984 SMGRTL” SRC SheTABOE REQ;1 


Definitions for RTL SMG$ facilit 
PFbo1 : 


LRA ERR EERE ERE EERE REAR EEE AREARE REE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVE 


® 
® 
® 
® 
. ® 
i THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN, ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES. THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY = 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. t 
® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. ® 
® 
*® 
& 
® 
a 
* 


it DIGITAL ASSUMES NO RESPONS 81 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


Lee REE RRR REE ERA EREREER 
' 


le4¢ 
! FACILITY: Screen Management 
5 SES 


This module defines the internal structure of the binary 
TERMTABLE .EXE. 


{| MODIFIED BY: 
1-001 - Original. PLL 2-Nov-1983 


The internal structure of TERMTABLE.EXE is divided into several sections. 


Each terminal definition consists of 660 capability pointers and 

a data area. If a terminal does not have a particular capability defined, 
the pointer for that capability will be zero. Otherwise, the capability 
pointer is an offset into the data area. 


Each capability data consists of a ow and the data. The data sey be 
a pinery number or an ascii string. A negative count indicates tha 

this 7° eoere string which requires processing (substitution, conversion, 
or arithme 


TERMTABLE.EXE also contains an index so that individual terminal definitions 


16 
SMGTPALIB = SMG$ TPARSE require files 1S-5ep-19 4 63:98:41 AX-11 Bliss-32 V 0erke 


4 
-Sep-1984 1:21 SMGRTL.SRCJSMGTABD Q;1 


; RO101 O ' can be located. The index will consist of a count. the ascii name for the 
3 ROI86 ' terminal, and the block number where the terminal definition beg ing The 
: RO} i index will actually be located at the end of TERMTABLE.EXE. This is because 
3; RO104 ' the number of term ~ definitions is unpredictable, and we don't want to 
; RO105 8 ! impose an arbitrary size constraint that would restrict the number of 

3 RONOS ° } terminals defined. 

; RO108 8 ! TERMTABLE.EXE will begin with an ident number, to allow for future changes. 
; RO109 ! These future changes would probably allow more terminal capabilities (greater 
; kRO110 O ' than 660). 

; kRO111 O ' 

: RO} 1 ¢ 8 ! $eeeeeeecesocococeca 

; RO11 ! : unused | Ident ' 

° RO1 1 4 0 ' fe eee ee eee me ee ee 

; ROIS 0 ee eee : Index Pointer { 

> RO116 0 i j OaOO 5 pcmeeeebouscenansen + 

3 eis 8 v :cap1 ptr | def id i<- Start of Terminal Definitions 

: RO119 0 ! H ‘cap3 ptr icap2 ptr i: } 

e RO1 $9 0 ' : corse | “aps ? ce ee ee ne oe H ! 

; RO} 0 ' H : 4 etc. it 

4 RO1 $$ 0 ' ; f Seer se ee newt eee { | 

; kRO123 0 ! H : +t 660 ptr | 659 ptr i | 

: RO124 0 i ' | jeanesscncecsouseese , ot 

; kRO125 O ! i ==>} capability tt 

3; RO126 O ! H ' data 7 

3 RO1 eo? 0 ! H $e eee nee een ero eee enw + ' 

; RO128 O : ' | 2nd TERM DEF i 

3 wiht 0 ‘ ' ' rc 

; kRO130 0 ! H | 660 cap ptrs ft 

; kRO131 O ; H {0 Sw eew reese o-- ‘ot 

5 sth 0 ! H H cap data it 

3 RO1 3 0 ' ‘ Fee eooeeeeeceooeecan + } 

; RO134 O : ' i ‘ | 4 

; kO135 O ! i H ‘ tJ 

3 RO136 O ! ‘ H ; he 

; kO137 O ! ‘ teeeeooeeneeeee----- + } 

; kRO138 O ! H | Nth TERM DEF ‘4 

; kRO139 O ! H ' a 

3; RO140 O ' ' | 660 cap ptrs tt 

; RO141 O ' ' $ eeeeeeneccececs , 

3 notes 0 ! : ' cap data ; > 

; RO143 O ! + } . 

: Rote 8 joore- >! Term name } count | | INDEX into terminal definitions 
3 2 a : (oe ee me SS Se ee Se ee ; H 

; RO146 O ! + tcount2 | Block# j-- 

: RO1 47 0 ' H eceseeeesooesecoocan H 

; RO148 O ' i‘Block2 #! Name 2 H 

3; RO149 8 3 {| Pere ew ere ecceecese= ' 

3; kRO150 ! : - H 

: 151 3 ! H ‘i ' 

3 126 ! ‘ " ' 

: 15 ' ! eeeceece Stance ensees ' 

: 13 } | Name N t+ count 

: 136 i ' § 0 | BlockN#! count = 0 --> end of terminal def ptrs 
: 15 0 ' $ewocecoceeceecceccc] + 


«Bete tease 
DDDDADADAAADAADAD 
jelelelelelelelelelelelelo) 


See EELS Pe Pe Heer ever. 
SINS SIA AA AAA AAAOOU 
NOUS WN OO DNAULS WOO 


fa Sw | ne ewe Sw ee ee) ee ee nw lw lolol ol alolelolel ole olelolel ela ololalealolololalololalo) 
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42 Page 
15-Sep-1 SMGRTL.SRCJSMGTABDEF .REQ;1 . (1 


1+ 
Offsets used to access a terminal table. 


MACRO 


TTB_W_IDENT = 0, 0, 16, 0%, ne Held ite allow for 
' future changes 
TTB_W_unused = 2, 0, 16, 0%, ! not used : 
TTB_L_INDEX_OFF SET = 4, 0, 32, 0%: gf feet from here to terminal 
' index 
14 
Define constants needed to build terminal table 
LITERAL 
SMGS$K_HEADER SIZE = 512 ! 1 block for header info 
SPSS [ERA MOEA SIZE = F9lY- iT hlecks'ts bata re 
3 P M 0 
SMG$K_CAP-DATA_SIZE = 2160. ' 10 blacks te hold data 
SMGSK_TERM_DEF_SIZE = 6656, ! ptrs + data (3410 blocks) 
SMG$K_TERM_DEF_ID = 137, Agony Big om bs sae 
' ava erminal de 
SMGSK_TERM_DEF_ID_OFFSET = 0, er + id : Ist 
' word in ptr vector 
SMGSK_MIN_REQUEST_CODE = 1 ! lowest coped) i ity number 
SMGSK~MAX-REQUEST-CODE = 660; i highest capability number 


+ 
! The following are used when ay age arithmetic expressions. 
Information about expressions is stored via these encodings. 


LITERAL 
SMG$K_FAO_STRING 
SMGSK-ARITH STRING 
SMGS$K_OP 
SMGSK~ SUBSTITUTE 
SMGS$K_ADD 
SMGS$K~ SUBTRACT 
SMGSK_MULTIPLY 
SMGSK_DIVIDE 
SMGS$K~STORE 


nhnnnnnunan 
PEPE HE PL FL HL HL FL IL 
>< O< OK OK OK OK OK OK OK 
see @eee#s##s#s @ 
anon 
ATTN 
Ss tens Fon Fon Benet Bene Bend Boned ne) 
NOOPYrWOoOom™n 
see xw@eeese#s###s @ 
ere es © & & & & & 


0300 


SMGTPALIB = SMG$ TPARSE require files 


REQUIRE "RTLIN:SMGTPACTL'; 


1$-Beoct9e 35:28:41 


! TPARSE parameter block defs 


AX-11 B 


Bliss-32 V4.0-742 


SMGRTL.SRCJSMGTPALIB.REQ;1 
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-Sep-1984 251: SMGRTL.SRCJISMGTPACTL.REQ;1 (1) 
19 1:4 j 


' SMGTPACTL.REQ = SMG TPARSE cesta Block Defs 
! Version 1-002 = Edit: PLL1001 


' 
LRA ERE EERE ERE RARER REAR ERE AREER 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 

® 

® 

® 

® 

i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
i CLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
M ® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. ® 
® 

oa 

® 

® 

® 

® 


ITY FOR THE USE OR _ RELIABILITY OF ITS 


:* DIGITAL ASSUMES NO RESPONSIBIL 
IS NOT SUPPLIED BY DIGITAL. 


I 
:® SOFTWARE ON EQUIPMENT WHICH 


po jofelofoflolelelelololeololelolelolelojleleleloleo) 
MMMM Poronofronopororopnoponoporefrofneorr 
MMMINNMPNININD 2 2 3 2 OO SS OOOO 


DDDDADDADADAADAADAAAAAAAADAADAAAAzAD 
WN SO OONAUES WN OOONAULS WN OVONOuU 


Te Fe | ome | ee we |e) wwe we we we ee) we eee we ww lala lolel oleae elelolelolelolelolelelolelelelolelel elo oleae) 


022 '® 
023 LR RRR REAR ERORERRRRE RRR RR AREE RE EEAREEAEE ERE AAAEEAAAAEEEREEEKKEE 
023 ! 
RO23 
RO23 ! AUTHOR: P. Levesque 
0234 
RO235 ' EDIT HISTORY: 
RO236 ! 1-001 = Original. PLL 28-Nov-1983 
RO237 
RO238 
RO239 LITERAL 
eoSet SMGSK_PARAM_BLOCK_SIZE = TPASK_LENGTHO + 60; ! TPARSE parameter block length 
AoE, 
RO24 + 
RO244 ! Two parameter blocks are actually allocated together and are adjacent. 
RO245 ! The first is the TPARSE parameter block, and the second is a “ vate 
RO246 ‘ pereneter block needed to pass info petweeg the routines in SMGBLDTRM.B32. 
ait rtd he TPARSE action routines in SMGTPATAB.B32 also need these variables. 
RO rt: ! TPARSE symbols (TPAS$_xxx) are defined in RTLTPAMAC.REQ. Only private 
RO250 ! symbols are defined here. 
RO251 !- 
Roe 26 
RO25 MACRO 
RO254 PARAM_A_TXT_FAB = TPASK_LENGTHO + 0, 0, 32, 0% 
RO255 addr of FAB for TERMTABLE.TXT 
R056 PARAM_A_TXT_RAB = TPASK_LENGTHO + 4, 0 
R057 ' addr of RAB for fERMTABLE.TXT 
RO258 PARAM_A_BINARY_FAB = TPASK_LENGTHO + 8, 0 
RO259 ' addr of FAB for fERMTABLE.EXE 
RO260 PARAM_A_BINARY_RAB = TPASK_LENGTHO +12, 0, 32, 02% 
R0261 addr of RAB for TERMTABLE.EXE 


Be Se Se Se Be Se Se Fe Fe Se Se Se Fe Se Se Ge Se SH Fe Se Ge Fe Ge Fe Ge Fe Fe Ge Ge Ge oe Se Se He Se Se Ss Se Se Se Ss Se Se Se Se Se Se Se Se Se Se Se Fe Sse ee sees 
P*) 


SST SS, 
Uwr 
pee fe ala lal alolololelelelelelelelelelelelelololololalo) 
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—OODONO 


ooo oO oO 
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PARAM_A_CAP_PTRS = TPASK ge 4 Se 0, 32, 0%, 
topes or cap offsets 
PARAM_A_CAP_DATA = TPASK ieigtio” +2 
u ffer for data 
PARAM_A_HEADER = TPASK -Lefletho® +24, #9 3 
uffer with header info 
PARAM_L_TERM_INDEX_SIZE = TPASK LENGTHO? +28, 
yges n xera.t index 
PARAM_A_TERM_INDEX = TPASK -Lenct 0 +32 ‘ 
ego of temp. ee 
tude*86,-0 index 
PARAM_L_CUR_TERM_DEF = TPASK “LENGTH +36 0, 32, 
fern 8 current te ooh def 
PARAM_L_CUR_DATA_BYTE = TPASK te CTHOS +4 


ext available aes .om 
TPASK LengTHO’s +44, 0, 32 
puaeer 4 capability” currently 


TPASK_LENGTHO 228°°0, 32, OX, 
t oo how — chars in 


PARAM_L_CUR_CAP_NUMBER 


PARAM_L_SAVED_TOKENCNT 


gaps stri ing 
PARAM_L_SAVED_TOKENSTR = TPASK LENerho” $5 

poi rt chert chy current 
PARAM_L_ORIG_TXT = TPASK LENGTH s $56" 0, 32, O%; 


' address of buffer containing 
! text string (pre-upcase) 
! End of SMGTPACTL.REQ 


0391 


SMGTPALIB = SMG$ TPARSE require files 


REQUIRE "RTLIN: SMGTRMMAC'; 


Sep-1984 
13-60-19 


! TPARSE macros 


Be $3:81:35 


AX-11 Bliss-32 V4.0-742 
SMGRTL.SRCJSMGTPALIB.REQ; 1 


R 
RO 
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SMGTRMMAC.REQ = Macros for TERMTABLE 1S-Se 1984 23:28:41 AX-11 Bliss-32 V4.0-742 Pp 9 
13-Sep-1984 92:81 166 age 


SMGRTL.SRCJSMGTRMMAC REQ; 1 (1) 


ATITLE "SMGTRMMAC.REQ = Macros for TERMTABLE' 
! Module: SMGTRMMAC.REQ Edit: PLL1001 


i peeneeeeeeeeeeeeeneeeeeeeeeeeeeeeeeneeeeeteneeereeeeeeneeeeneeeenerereeeeeee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE + FURNISHED UNDER A LICENSE AND MAY BE 2 AND og be 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH iat SE AND WITH THE 


® 
® 
® 
® 
® 
+ 
® 
'® INCLUSION OF THE ABOVE Vy NOTICE. THIS SOFTWARE OR ANY OTHER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
. ® 
!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
. ® 
'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 
| dickens aadeenebennabahnbaebsasniedinnabeiaenahmeineRmnebensannsnnnened 
' 
'e4 
FACILITY: Screen Management 
i ABSTRACT: 


i MODIFIED BY: 


' 

i] 

This require file contains macros used in the creation of TERMTABLE.EXE. 
i] 

1 

} 1-001 = Original. PLL 30-JAN-1984 


'¢ 


Macro SINCR_CAP_STRING_SIZE 
i Add the specified number of bytes to the capability string size. 
A We may be dealing with a negative size if extra processing is needed. 
MACRO SINCR_CAP_STRING_SIZE (NUMBER_BYTES, STRING_SIZE) = 
IF .STRING_SIZE LSS 0 
STRING_SIZE = .STRING_SIZE - NUMBER_BYTES 


END: STRING_SIZE = .STRING_SIZE + NUMBER_BYTES; 


'¢ 


i Macro SINCR_CUR_DATA_BYTE 


DDD 
jololeloleleleleolelelelelololo) 


zz 
DVD PFS 


flee lolol el ele ele el ele wl ele al ala) a) ala lala lela alalolaloleoleleleloleleleleleleolelelelelelelelelalelelealealola) 
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Update the sor angi tape data byte b H the number of bytes 
just written. is the first byte of the string, then we 
also wrote a byte count. 


ne SINCR_CUR_DATA_BYTE (NUMBER_BYTES, FIRST_FLAG) = 
AP CPARAM_L_CUR_DATA_BYTE] = .AP CPARAM_L_CUR_DATA_BYTE] + 
NUMBE ER_BYTES + 
CIF FIRST “FLAG 
THEN 
ELSE 
SMGSSDATA_OFFSET = ssn * wummen BYTES + 


! 1 for size, 1 for kind 


ELSE 0); 
END; %; 


'¢ 
i Macro to update the size of an arithmetic capability. This size 
will be negative. 


WACRO. SUPDATE_ARITH_ STRING. SIZE (NUMBER_BYTES) = 


LocactP=PTRS = -AP CPARAM_L_CUR_TERM_DEF] : VECTOR C,WORDJ; 
CAP_SIZE : REF VECTOR C,BYTE,SIGNED); 


CAP_SIZE = .AP CPARAM_L_CUR_TERM_DEF] + 
th AP _PTRS C.AP CPARAM_L_CUR_CAP_NUMBER]); 


CAP_SIZE CO] = .CAP_SIZE CO] - NUMBER_BYTES; 
END;%; 


+ 

! We fill buffers with data and then do a block 1/0 write when we reach 

! the end of a definition or when the buffer is full. Here we check to 

! see if the buffer is full ite, if there is room for the number of bytes 
a we are about to put in it 


rie SCHECK_BUFFER_OVERFLOW (BYTES_TO_WRITE) = 


L 
REMAINING BYTES; 
REMAINING_BYTES = SMGSK_CAP apATA. Ss 
(.AP CPARAM_L CUR ‘DATA BYTE] - .AP CPARAM_A_CAP_DATA]); 
IF BYTES_TO_WRITE GTR -REMAINING_B 


CALLG (.AP, SMGSS$WRITE_DATA); 
END; 2%; 


Roco? 9 


SMGTRMMAC.REQ = Macros for TERMTABLE 


! End of file SMGTRMMAC.REQ 


1bege 


Sep-1 
Sep-1 


Be 93:87:06 


AX-11 Blis 
SMGRTL.SRC 


eich 


2.V4.0-76 
MGTRMMAC.R 


fa; ;1 


SMGTRMMAC.REQ = Macros for TERMTABLE 1B-sep -1984 : . 8 gf:3] -11 Bliss-32 V4.0-742 Page 12 


=Sep-19 SMGRTL SRE SMGTPALIB.REQ;1 ( 
0408 ° 
0409 ! End of file SMGTPALIB.REQ 
Library Statistics 
nae ieee Symbol § «cocces= Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBJSTARLET.L32;1 9776 1 0 581 00:01.0 


COMMAND QUALIFIERS 
BLISS/LIBRARY=LIB$:SMGTPALIB/LIST=LIS$:SMGTPALIB/SOURCE=REQUIRE SRC$:SMGTPALIB 


; Run Time: 00:04.0 


Elapsed Time: 00:05.7 
Lines/CPU Min: 613 
Lexemes/CPU-Min: Let 

Memory Used: popes 

Library Precompilation Complete 


-n 


EQUIPMENT CORPORATION 
NTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


0361 
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